home *** CD-ROM | disk | FTP | other *** search
/ FM Towns: Free Software Collection 7 / FM Towns Free Software Collection 7.iso / gear / paint / palette3.txt < prev    next >
Text File  |  1993-11-30  |  1KB  |  27 lines
  1. 'ON ERROR GOTO *HAZIME
  2. MOUSE 4,527,306,639,370
  3. VIEW ,0
  4. G=255
  5. R=255
  6. B=255
  7. PALETTE 1,[G,0,0]
  8. PALETTE 2,[0,R,0]
  9. PALETTE 3,[0,0,B]
  10. PALETTE 4,[G,R,B]
  11. LINE (547,308)-(619,327),PSET,%1,BF,%1
  12. LINE (547,328)-(619,347),PSET,%2,BF,%2
  13. LINE (547,348)-(619,367),PSET,%3,BF,%3
  14. LINE (527,368)-(639,387),PSET,%4,BF,%4
  15. WHILE MOUSE(2,1)=0
  16.  IF MOUSE(2,0)=-1 GOSUB *TOBI
  17. WEND
  18. END
  19. *TOBI
  20.    IF MOUSE(4,0)<546 AND MOUSE(5,0)<327 THEN G=G-1:IF G<0 THEN G=1:PALETTE 1,[G,0,0]:PALETTE 4,[G,R,B]:RETURN
  21.    IF MOUSE(4,0)<546 AND MOUSE(5,0)<347 THEN R=R-1:IF R<0 THEN R=1:PALETTE 2,[0,R,0]:PALETTE 4,[G,R,B]:RETURN
  22.    IF MOUSE(4,0)<546 AND MOUSE(5,0)<367 THEN B=B-1:IF B<0 THEN B=1:PALETTE 3,[0,0,B]:PALETTE 4,[G,R,B]:RETURN
  23.    IF MOUSE(4,0)>620 AND MOUSE(5,0)<327 THEN G=G+1:IF G>255 THEN G=255:PALETTE 1,[G,0,0]:PALETTE 4,[G,R,B]:RETURN
  24.    IF MOUSE(4,0)>620 AND MOUSE(5,0)<347 THEN R=R+1:IF R>255 THEN R=255:PALETTE 2,[0,R,0]:PALETTE 4,[G,R,B]:RETURN
  25.    IF MOUSE(4,0)>620 AND MOUSE(5,0)<367 THEN B=B+1:IF B>255 THEN B=255:PALETTE 3,[0,0,B]:PALETTE 4,[G,R,B]:RETURN
  26. RETURN
  27.